﻿Imports DevExpress.XtraEditors

Public Class UCAsistUsuario1

    Private Sub chkmospsw_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkmospsw.CheckedChanged
        Dim edit As CheckEdit = CType(sender, CheckEdit)

        If edit.EditValue = True Then
            gpswuser.Properties.UseSystemPasswordChar = False
            gconfpsw.Properties.UseSystemPasswordChar = False
        Else
            gpswuser.Properties.UseSystemPasswordChar = True
            gconfpsw.Properties.UseSystemPasswordChar = True
        End If

    End Sub
End Class
